home *** CD-ROM | disk | FTP | other *** search
- sid-demo 5_COM
- prg FORMATTED geos FILE v1.0
- wRITE iMAGE v2.0
- GEOwRITE v2.1
- {$60} qUELLTEXT ZUR GEOcom-dEMODISKETTE {$60}
- {$60} (C)94 by denis d\hler/falk rehwagen{$60}
- {$60} dIE dEMODISKETTE KANN KOSTENLOS ANGEFORDERT {$60}
- {$60} WERDEN BEI: {$60}
- {$60} guss, dENIS d{$7c}HLER , gORKISTR.18 , 04347 lEIPZIG {$60}
- name"sid-demo 5" : class"sid-dEMO 5 v1.0" : author"dENIS d{$7c}HLER"
- startflag$40
- bytevarE,A,D,SU,R,C,FF,FR,ML,HI,LO,
- intvarZ{$7b}HLER,F,M,P
- labelUMSCHALTEN,TASTE,END,L{$7c}SCHEN,GL{$7c}CK,OBOE,SPINETT,BANJO,FEDER,SCHU{$7e},STROM,FLUGZEUG
- L{$7c}SCHEN : cls : pattern1 : rect(dbl78,0),167,(dbl258,0),193 : pattern0
- rect(dbl70,0),159,(dbl250,0),185 : frame(dbl70,0),159,(dbl250,0),185
- setpos(dbl80,0),169 : print"/bsid-dEMO 5/p -(W) '93 dENIS d{$7c}HLER"
- setpos(dbl80,0),180 : print"04347 lEIPZIG gORKISTR.18"
- rect(dbl2,0),2,(dbl317,0),139 : frame(dbl2,0),2,(dbl317,0),139
- setpos(dbl10,0),15 : print"/pdIESES pROGRAMM ZEIGT DIE sid - pROGRAMMIERUNG UNTER geos "
- setpos(dbl10,0),25 : print"UND GEOcOM ! dREHEN sIE DAZU BITTE iHREN lAUTST{$7b}RKE-REGLER AUF !"
- setpos(dbl10,0),35 : print"wENN sIE HIER EINE BELIEBIGE tASTE DR{$7d}CKEN, WIRD DER tON "
- setpos(dbl10,0),45 : print"WIEDERHOLT. eS HANDELT SICH HIERBEI UM : "
- setpos(dbl15,0),70 : print"/biNSTRUMENTE UND gER{$7b}USCHE"
- setpos(dbl20,0),90 : print"/pf1 = gL{$7c}CKCHEN" : setpos(dbl120,0),90 : print"f2 = oBOE"
- setpos(dbl220,0),90 : print"f3 = sPINETT" : setpos(dbl20,0),100 : print"f4 = bANJO"
- setpos(dbl120,0),100 : print"f5 = fEDER" : setpos(dbl220,0),100 : print"f6 = sCHU{$7e}"
- setpos(dbl20,0),110 : print"f7 = sTARKSTROM-BRUMMEN" : setpos(dbl220,0),110 : print"f8 = d{$7d}SENFLUGZEUG"
- setpos(dbl20,0),130 : print"/bmIT /80 q KOMMEN sIE ZUM dESKTOP !"
- GL{$7c}CK
- @UMSCHALTEN
- initio : poke54277,A : poke54278,SU : poke54274,((byteatP) and 255)
- poke54275,R : poke54272,LO : poke 54273,HI : poke54294,FF
- poke54295,FR : poke54296,ML : poke54276,(Cor1)
- Z{$7b}HLER = 0 : repeat : incZ{$7b}HLER : until (Z{$7b}HLER == M)
- poke54276,(Cand254) : doneio
- on 0 goto TASTE : mainloop
- L{$7c}SCHEN : end
- @TASTE
- if (KEYDATA == $F1) : goto END : endif
- if (KEYDATA == $01) : GL{$7c}CK : endif
- if (KEYDATA == $02) : OBOE: endif
- if (KEYDATA == $03) : SPINETT : endif
- if (KEYDATA == $04) : BANJO : endif
- if (KEYDATA==$05) : FEDER : endif
- if (KEYDATA == $06) : SCHU{$7e} : endif
- if (KEYDATA==$0E) : STROM : endif
- if (KEYDATA == $0F) : FLUGZEUG : endif : goto UMSCHALTEN
- @L{$7c}SCHEN
- Z{$7b}HLER = 24 : repeat : initio :poke(54272+Z{$7b}HLER),0
- doneio : decZ{$7b}HLER : until (Z{$7b}HLER ==0)
- return
- @GL{$7c}CK
- L{$7c}SCHEN:A=10:SU=10:R=0:C=16:HI=156:LO=64:P=2100:M=100:FF=50:FR=0:ML=15:return
- @OBOE
- L{$7c}SCHEN:A=135:SU=168:R=0:C=16:HI=29:LO=76:P=250:M=500:FF=50:FR=0:ML=15:return
- @SPINETT
- L{$7c}SCHEN:A=9:SU=0:R=0:C=32:HI=23:LO=72:P=250:M=350:FF=50:FR=0:ML=15:return
- @BANJO
- L{$7c}SCHEN:A=8:SU=8:R=0:C=32:HI=29:LO=76:P=0:M=30:FF=50:FR=241:ML=111:return
- @FEDER
- L{$7c}SCHEN:A=8:SU=9:R=0:C=32:HI=2:LO=238:P=0:M=35:FF=0:FR=0:ML=15:return
- @SCHU{$7e}
- L{$7c}SCHEN:A=8:SU=10:R=0:C=128:HI=39:LO=16:P=0:M=50:FF=0:FR=0:ML=15:return
- @STROM
- L{$7c}SCHEN:A=0:SU=240:R=0:C=128:HI=0:LO=100:P=0:M=2000:FF=0:FR=0:ML=15:return
- @FLUGZEUG
- L{$7c}SCHEN:A=0:SU=253:R=13:C=128:HI=11:LO=184:P=0:M=3000:FF=50:FR=241:ML=31:return
-